﻿Imports ControladorasAT.SIREOS
Imports Utilitarios
Imports System.Data
Imports ServiciosAT

Partial Class Pages_Default
    Inherits System.Web.UI.Page

    Private Function ValidarCampos() As Boolean
        If ddlbLocal.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarLocal
            Return False
        ElseIf ddlbArea.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarArea
            Return False
        ElseIf ddlbCargo.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarCargo
            Return False
        ElseIf ddlbEstadoCivil.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarEstadoCivil
            Return False
        ElseIf ddlbTipoDocumento.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarTipoDocumento
            Return False
        ElseIf txbDocumento.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarNroDocumento
            Return False
        ElseIf txbNombres.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarNombre
            Return False
        ElseIf txbApellidos.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarApellido
            Return False
        ElseIf ddlbRegion.SelectedValue = Valores.Numero.Cero Then
            Valores.mensajevar = Mensajes.seleccionarregion
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub CargarDatosEmpleado()
        '    'Dim oCtEmpleado As New CtEmpleado
        '    'Dim oEmpleadoBE As EmpleadoBE =CType(oCtEmpleado.cargarDatosEmpleado(Convert.ToInt32(LblCodigoEmpleado.Text),empleadobe)
        '    'Dim dt As DataSet = oCtEmpleado.cargarDatosEmpleado()
        '    'If Not (dt Is Nothing) Then

        '    'Else
        '    '    Helper.MensajeAlerta(Me, Mensajes.noExisteEmpleado)
        '    'End If
    End Sub

    Private Sub CargarModoPagina()
        Select Case Request.QueryString("ModoPagina")
            Case Valores.ModoPagina.Consulta
                CargarDatosEmpleado()
            Case Valores.ModoPagina.Nuevo

            Case Valores.ModoPagina.Editar
                CargarDatosEmpleado()
        End Select
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            LblCodigoEmpleado.Text = Request.QueryString("Codigo")
            Listas.listarLocales(ddlbLocal)
            Listas.listarAreas(ddlbArea)
            Listas.listarCargos(ddlbCargo)
            Listas.listarTabla(Valores.Tabla.EstadoCivil, ddlbEstadoCivil)
            Listas.listarTabla(Valores.Tabla.TipoDocumento, ddlbTipoDocumento)
            Listas.listarTabla(Valores.Tabla.CondicionSueldo, ddlbCondicion)
            Listas.ListarRegiones(ddlbRegion)
            Listas.ListarProvincias(ddlbProvincia, ddlbRegion.SelectedValue.ToString)
            Listas.ListarDistritos(ddlbDistrito, ddlbRegion.SelectedValue.ToString, ddlbProvincia.SelectedValue.ToString)
            CargarModoPagina()
        End If
    End Sub

    Protected Sub ibtnGrabar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnGrabar.Click
        If ValidarCampos() = True Then
            '        Dim oEmpleadoBE As New EmpleadoBE
            '        oEmpleadoBE.CodLocal = ddlbLocal.SelectedValue
            '        oEmpleadoBE.CodArea = ddlbArea.SelectedValue
            '        oEmpleadoBE.CodCargo = ddlbCargo.SelectedValue
            '        oEmpleadoBE.CabEstadoCivil = Valores.Tabla.EstadoCivil
            '        oEmpleadoBE.CodEstadoCivil = ddlbEstadoCivil.SelectedValue
            '        oEmpleadoBE.CabTipoDocumento = Valores.Tabla.TipoDocumento
            '        oEmpleadoBE.CodTipoDocumento = ddlbTipoDocumento.SelectedValue
            '        oEmpleadoBE.NroDocumento = txbDocumento.Text
            '        oEmpleadoBE.NomEmpleado = txbNombres.Text
            '        oEmpleadoBE.ApeEmpleado = txbApellidos.Text
            '        oEmpleadoBE.DirEmpleado = txbDireccion.Text
            '        oEmpleadoBE.TelEmpleado = txbTelefono.Text
            '        oEmpleadoBE.CelEmpleado = txbCelular.Text
            '        oEmpleadoBE.LicEmpleado = txbLicencia.Text
            '        oEmpleadoBE.MailEmpleado = txbCorreo.Text
            '        If txbMonto.Text = Valores.vacio Then txbMonto.Text = 0
            '        oEmpleadoBE.MonEmpleado = txbMonto.Text
            '        If ddlbCondicion.SelectedValue <> Valores.Numero.Cero Then
            '            oEmpleadoBE.CabCondicionSueldo = Valores.Tabla.CondicionSueldo
            '            oEmpleadoBE.CodCondicionSueldo = ddlbCondicion.SelectedValue
            '        End If
            '        oEmpleadoBE.FecNacimiento = txbNacimiento.Text
            '        oEmpleadoBE.FecIngreso = txbIngreso.Text
            '        oEmpleadoBE.UsuRegistro = Convert.ToInt32(Session("CodigoUsuario"))

            '        Dim oCtEmpleado As New CtEmpleado

        Else
            Helper.MensajeAlerta(Me, Valores.mensajevar)
        End If
    End Sub

    Protected Sub ibtnRetornar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnRetornar.Click
        Response.Redirect("RRHHListadoPersonal.aspx")
    End Sub

    Protected Sub ddlbRegion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlbRegion.SelectedIndexChanged
        Listas.ListarProvincias(ddlbProvincia, ddlbRegion.SelectedValue)
        Listas.ListarDistritos(ddlbDistrito, ddlbRegion.SelectedValue, ddlbProvincia.SelectedValue)
    End Sub

    Protected Sub ddlbProvincia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlbProvincia.SelectedIndexChanged
        Listas.ListarDistritos(ddlbDistrito, ddlbRegion.SelectedValue, ddlbProvincia.SelectedValue)
    End Sub

End Class